home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / edison.dir / 00580_Script_Kinetoscope obj < prev    next >
Text File  |  1997-05-26  |  4KB  |  132 lines
  1. --p Kinetoscope Obj
  2. --instantiated as gKinetoscopeObj
  3.  
  4.  
  5. property pStartSprite, pInterfaceCast, pLoadDB, pMovieBaseCast, pMovieSprite, pHotSpotRect
  6. property   pRolloverStartsprite, pRolloverEndSprite, plabels, pRolloverActive
  7.  
  8.  
  9. global gScoreEventObj, gSndPath, gInterfaceMgrObj
  10. ----------------------------------------------------------------------------------------------------
  11. on mInit me
  12.   
  13.   set pRolloverStartsprite = 12
  14.   set pRolloverEndSprite = 14
  15.   set plabels = the text of cast "Kinetoscope labels"
  16.   set pStartSprite = 7
  17.   set pMovieBaseCast = the number of cast "EKSVID1.MOV"
  18.   set pMovieSprite = 23
  19.   set pHotSpotRect = rect(486, 11, 613, 70)
  20.   
  21.   
  22.   mSetToolBtns (gInterfaceMgrObj, #KINETOSCOPE, me)
  23.   return( me )
  24.   
  25. end mInit
  26. ----------------------------------------------------------------------------------------------------
  27. on mActivate me
  28.   
  29.   sound stop 1
  30.   puppetSprite pMovieSprite, true
  31.   updatestage
  32.   set the movierate of sprite pMovieSprite = 1
  33.   updatestage
  34.   
  35. end mActivate
  36. ----------------------------------------------------------------------------------------------------
  37. on mClose me
  38.   
  39.   mClearToolHilite (gInterfaceMgrObj)
  40.   puppetSprite pMovieSprite, false
  41.   
  42. end mClose
  43. -----------------------------------------------------------------<<ò>>
  44. on mPerform me
  45.   
  46.   
  47.   if pRolloverActive then
  48.     set spritetoCheck = pRolloverStartsprite
  49.     set found = FALSE
  50.     repeat while (not found) and (spritetoCheck <= pRolloverEndSprite)
  51.       if rollover(spritetoCheck) then
  52.         set labelText = line (spritetoCheck - pRolloverStartsprite + 1) of plabels
  53.         mSetLabelText( gUtilityObj, labelText)
  54.         set found = TRUE
  55.       end if
  56.       set spritetoCheck = spritetoCheck + 1
  57.     end repeat
  58.   end if
  59.   
  60.   go the frame
  61.   
  62. end mPerform
  63. -----------------------------------------------------------------<<ò>>
  64.  
  65. on mChangeMovie me, WhatMovie
  66.   
  67.   --  puppetsprite 35, true
  68.   --  set the castnum of sprite 35 = the number of cast WhatMovie
  69.   
  70. end mChangeMovie
  71. ----------------------------------------------------------------------------------------------------
  72. on mExitPeepHole me
  73.   
  74.   mclose(me)
  75.   go frame "EKS2"
  76.   
  77. end mExitPeepHole
  78. ----------------------------------------------------------------------------------------------------
  79. on mReturnToStructure me
  80.   
  81.   mclose(me)
  82.   mStopMovAndPullOut(gScoreEventObj, pMovieSprite)
  83.   
  84. end mReturnToStructure
  85. ----------------------------------------------------------------------------------------------------
  86. on mSetKinetoscopeCursors me
  87.   
  88.   set pRolloverActive = TRUE
  89.   mUnsetAllCursors(gUtilityObj)
  90.   mSetCursors(gUtilityObj, [12:#ZoomIn, 13:#ZoomIn, 14:#Operate, 21:#Return, 22:#Return])
  91.   
  92. end mSetKinetoscopeCursors
  93. ----------------------------------------------------------------------------------------------------
  94. on mResetCursors me
  95.   
  96.   
  97.   mUnsetAllCursors(gUtilityObj)
  98.   mSetCursors(gUtilityObj, [ 21:#Return, 22:#Return])
  99.   
  100. end mResetCursors
  101. ----------------------------------------------------------------------------------------------------
  102. on mOperate me, whatSelection
  103.   
  104.   puppetSprite pMovieSprite, false
  105.   --set the castnum of sprite pMovieSprite = 0
  106.   go "EKS3"
  107.   mClearToolHilite (gInterfaceMgrObj)
  108.   
  109. end mOperate
  110. ----------------------------------------------------------------------------------------------------
  111. on mZoom me, whatSelection
  112.   
  113.   puppetsprite pMovieSprite, false
  114.   set the locv of sprite pMovieSprite = -1000
  115.   go "EKS4"
  116.   mClearToolHilite (gInterfaceMgrObj)
  117.   
  118. end mZoom
  119. ----------------------------------------------------------------------------------------------------
  120. on mLoad me, WhatSelection
  121.   
  122.   sound stop 1
  123.   set the visible of sprite pMovieSprite = FALSE
  124.   go "EKS5"
  125.   set the castNum of sprite pMovieSprite = pMovieBaseCast + WhatSelection - 1
  126.   updatestage
  127.   set the visible of sprite pMovieSprite = TRUE
  128.   mClearToolHilite (gInterfaceMgrObj)
  129.   set the movierate of sprite pMovieSprite = 1
  130.   
  131. end mLoad
  132. ----------------------------------------------------------------------------------------------------